Acala

Row

Pool
acala-subql
acala-dex-subql
Difference
id tvlUSD volumeUSD_24H volumeUSD_7D tvlUSD_DEX volumeUSD_24H_DEX volumeUSD_7D_DEX Absolute Percentage
lp://AUSD/LDOT 628,397.2 3,830.60 203,242.4 1,259,187 7,667.90 426,585.0 630,789.87 100.4
lp://DOT/LCDOT 3,908,120.4 9,129.08 1,460,734.8 3,859,595 9,019.90 1,449,428.7 48,524.89 7.7
lp://AUSD/LCDOT 2,219,510.4 6,816.30 858,653.5 2,206,209 6,774.04 883,503.3 13,301.11 2.1
lp://ACA/AUSD 1,762,562.4 6,577.49 1,857,390.5 1,756,960 6,564.78 1,988,001.9 5,602.51 0.9

Karura

Row

Pool
acala-subql
acala-dex-subql
Difference
id tvlUSD volumeUSD_24H volumeUSD_7D tvlUSD_DEX volumeUSD_24H_DEX volumeUSD_7D_DEX Absolute Percentage
lp://KBTC/KUSD -1,554,010.62 -21.42 -6,790.37 NA NA NA NA NA
lp://KINT/KUSD -1,277,774.43 -13.06 -3,034.63 NA NA NA NA NA
lp://PHA/KUSD -1,040,623.00 -0.88 -2,640.02 NA NA NA NA NA
lp://KUSD/KINT 1,256,250.28 -61.26 -2,830.64 19,514.90 67.12 5,293.76 1,236,735.38 NA
lp://KUSD/PHA 1,035,011.37 -18.02 -2,574.38 15,046.96 50.13 14,509.10 1,019,964.41 NA
lp://KUSD/KBTC 1,457,698.49 -12.79 -5,875.63 461,104.50 61.71 110,110.56 996,594.00 NA
lp://KUSD/ARIS2 142,697.86 22,620.93 57,453.37 138,802.69 49,770.94 127,844.68 3,895.18 NA
lp://TAI/taiKSM 0.00 0.00 0.00 3,875.63 392.75 675.66 3,875.63 NA
lp://KAR/LKSM 836,942.35 239.13 95,993.91 834,471.88 636.32 121,913.64 2,470.47 NA
lp://KUSD/LKSM 552,672.23 999.07 249,005.10 551,232.48 1,391.40 258,936.15 1,439.76 NA
lp://KUSD/BNC 58,621.01 2,636.85 10,528.04 57,760.24 2,614.58 10,450.13 860.78 NA
lp://KSM/LKSM 107,162.76 4,632.43 25,721.56 107,828.37 4,727.62 26,418.46 665.61 NA
lp://KUSD/QTZ 24,782.40 25.93 4,254.95 25,155.15 26.27 6,559.87 372.75 NA
lp://KUSD/CSM 30,389.32 60.40 11,617.40 30,268.53 60.40 11,710.42 120.79 NA
lp://KAR/KUSD 629,071.46 504.14 254,524.93 628,960.83 503.83 325,749.21 110.63 NA
lp://KUSD/KSM 561,237.19 3,154.73 525,440.56 561,151.17 3,153.99 533,732.13 86.03 NA
lp://KSM/ARIS 81.19 12.71 66.90 162.31 21.42 135.62 81.12 NA
lp://KAR/KSM 1,058,925.91 2,679.00 340,884.69 1,058,855.90 2,675.12 341,867.76 70.02 NA
lp://KUSD/RMRK 11,871.04 154.22 8,332.68 11,925.50 155.11 8,505.75 54.46 NA
lp://KSM/RMRK 6,821.94 18.53 2,478.80 6,860.40 18.63 2,477.48 38.46 NA
lp://KAR/QTZ 22,450.51 26.29 3,128.45 22,475.35 26.34 6,403.40 24.84 NA
---
title: "Acala / Karura Pool Stats"
output:
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    social: menu
    source_code: embed
---

```{css custom1, echo=FALSE}
.dataTables_scrollBody {
    max-height: 100% !important;
}
```

```{r global, include=FALSE}

library(knitr)
knitr::opts_chunk$set(
  message = FALSE,
  warning = FALSE,
  comment = "#>"
)

library(kableExtra)
library(formattable)
library(lubridate)
library(flexdashboard)
library(DT)
library(subscanr)
library(ghql)
x <- GraphqlClient$new()

# Helper function to concat
`%+%` <- function(a, b) paste0(a, b)

# library(reticulate)

```

```{r tokens, cache = TRUE, include=FALSE}

pools_a <- getPoolStats_acala('acala')
pools_a[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_a[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

pools_a_dex <- getPoolStats_acala_dex('acala') %>%
  setnames("totalTVL", "tvlUSD_DEX")
pools_a_dex[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_a_dex[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

both_a <- merge(pools_a[, .(id, tvlUSD, volumeUSD_24H, volumeUSD_7D)],
                pools_a_dex[, .(id, tvlUSD_DEX, volumeUSD_24H, volumeUSD_7D)],
                by = "id",
                all = TRUE,
                suffixes = c("", "_DEX"))
both_a[, Absolute := abs(tvlUSD - tvlUSD_DEX)] %>% 
  setorder(-Absolute)
both_a[, Percentage := round((Absolute / min(tvlUSD, tvlUSD_DEX)) * 100, 1)]

both_a[, Percentage := ifelse(Percentage > 5, 
                   cell_spec(Percentage, color = "red"), 
                   cell_spec(Percentage, color = "green"))]



pools_k <- getPoolStats_acala('karura')
pools_k[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_k[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

# FOR DEX must use dailyTradeVolumeUSD instead of tradeVolumeUSD
pools_k_dex <- getPoolStats_acala_dex('karura') %>%
  setnames("totalTVL", "tvlUSD_DEX")
pools_k_dex[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_k_dex[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

pools_k[, .(id, token0.name, token1.name)]

both_k <- merge(pools_k[, .(id, tvlUSD, volumeUSD_24H, volumeUSD_7D)],
                pools_k_dex[, .(id, tvlUSD_DEX, volumeUSD_24H, volumeUSD_7D)],
                by = "id",
                all = TRUE,
                suffixes = c("", "_DEX"))
both_k[, Absolute := abs(tvlUSD - tvlUSD_DEX)] %>% 
  setorder(-Absolute)
both_k[, Percentage := round((Absolute / min(tvlUSD, tvlUSD_DEX)) * 100, 1)]

both_k[, Percentage := ifelse(Percentage > 5, 
                   cell_spec(Percentage, color = "red"), 
                   cell_spec(Percentage, color = "green"))]

```

# Acala {.tabset}

Row
----

```{r acala1}

knitr::kable(both_a, escape = FALSE, digits = 2, format.args = list(big.mark = ",")) %>%
  kable_styling() %>%
  add_header_above(c("Pool" = 1, "acala-subql" = 3, "acala-dex-subql" = 3, "Difference" = 2))

```


# Karura {.tabset}

Row
----

```{r karura1}

knitr::kable(both_k, escape = FALSE, digits = 2, format.args = list(big.mark = ",")) %>%
  kable_styling() %>%
  add_header_above(c("Pool" = 1, "acala-subql" = 3, "acala-dex-subql" = 3, "Difference" = 2))

```